Public Class Passo_Instalacao
    Inherits Aplicativo
    Implements IComparable(Of Passo_Instalacao)

    Private ID As Integer
    Public Comando As String

    Public Sub New(ByVal id As Integer, ByVal Comando As String)
        Me.ID = id
        Me.Comando = Comando
    End Sub

    Public Overloads Function CompareTo(ByVal other As Passo_Instalacao) As Integer Implements IComparable(Of Passo_Instalacao).CompareTo
        Return ID.CompareTo(other.ID)
    End Function

End Class
